﻿<!-- #Include File="../Include/Admin_Onlogin.asp" -->
<!-- #Include File="../../Include/Md5.asp"-->
<%
Data_Name = "{prefix}Config"
strFileName = "Admin_Config.asp"
Dim sqlAuth, rsAuth, PurviewID
sqlAuth = "Select AuthID From Admin_Auth Where href='Admin/" & strFileName & "' Order By sort Asc,AuthID Asc"
Call Exec(rsAuth,sqlAuth,2)
If rsAuth.BOF And rsAuth.EOF Then
	PurviewID = 0
Else
	PurviewID = rsAuth(0)
	CheckPurview PurviewID,0
End If
rsAuth.Close
Set rsAuth = Nothing
Select Case Action
	Case "SaveConfig"
		sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Config/Update' Order By sort Asc,AuthID Asc"
		Call Exec(rsAuth,sqlAuth,2)
		If rsAuth.BOF And rsAuth.EOF Then
			CheckPurview 0,1
		Else
			CheckPurview rsAuth(0),1
		End If
		rsAuth.Close
		Set rsAuth = Nothing
		Call SaveConfig()
	Case else
		Call ShowConfig()
End Select
If FoundErr=True Then
	Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Call CloseConn()

Sub ShowConfig()
	Dim i, UploadSetting_16, UploadSetting_24
	Response.Write "<!DOCTYPE html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<title>系统设置</title>" & vbCrlf
	Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
	Response.Write "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
	Response.Write "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
	Response.Write "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
	Response.Write "<meta name='format-detection' content='telephone=no'>" & vbCrLf
	Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../fonts/font-awesome/css/font-awesome.min.css"" />" & vbCrLf
	Response.Write "<link href='../Plugins/layui/css/layui.css' rel='stylesheet' type='text/css' />" & vbCrLf
	Response.Write "<link href='../Style/global.css' rel='stylesheet' type='text/css' />" & vbCrLf
	Response.Write "<link href='../Style/font.css' rel='stylesheet' type='text/css' />" & vbCrLf
	Response.Write "<script type='text/javascript'>" & vbCrLf
	Response.Write "var pc_file = '" & InstallDir & "';" & vbCrLf
	Response.Write "var admin_file = '" & AdminFolder & "/';" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script type='text/javascript' src='../Js/Admin.js'></script>" & vbCrLf
	Response.Write "<script type='text/javascript' src='../../Dialog/main.js'></script>" & vbCrLf
	Response.Write "<script type='text/javascript' src='../../Dialog/lhgcore.min.js'></script>" & vbCrLf
	Response.Write "<script type='text/javascript' src='../../Dialog/lhgcalendar.min.js'></script>" & vbCrLf
	Response.Write "<script type=""text/javascript"" src=""../Plugins/layui/layui.js""></script>" & vbCrLf
	Response.Write "<script type='text/javascript'>" & vbCrLf
	Response.Write "function BaseTrim(str){" & vbCrlf
	Response.Write "	lIdx=0;" & vbCrlf
	Response.Write "	rIdx=str.length;" & vbCrlf
	Response.Write "	if (BaseTrim.arguments.length==2){" & vbCrlf
	Response.Write "		act=BaseTrim.arguments[1].toLowerCase();" & vbCrlf
	Response.Write "	}else{" & vbCrlf
	Response.Write "		act=""all"";" & vbCrlf
	Response.Write "	}" & vbCrlf
	Response.Write "	for(var i=0;i<str.length;i++){" & vbCrlf
	Response.Write "		thelStr=str.substring(lIdx,lIdx+1);" & vbCrlf
	Response.Write "		therStr=str.substring(rIdx,rIdx-1);" & vbCrlf
	Response.Write "		if ((act==""all"" || act==""left"") && thelStr=="" ""){" & vbCrlf
	Response.Write "			lIdx++;" & vbCrlf
	Response.Write "		}" & vbCrlf
	Response.Write "		if ((act==""all"" || act==""right"") && therStr=="" ""){" & vbCrlf
	Response.Write "			rIdx--;" & vbCrlf
	Response.Write "		}" & vbCrlf
	Response.Write "	}" & vbCrlf
	Response.Write "	str=str.slice(lIdx,rIdx);" & vbCrlf
	Response.Write "	return str;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "</script>" & vbCrlf
	Response.Write "</head>" & vbCrlf
	Response.Write "<body>" & vbCrlf
	Response.Write "<form class='layui-form layui-form-pane' id=""myform"" name=""myform"" method=""post"" action=""" & strFileName & """>" & vbCrlf
	Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrlf
	Response.Write "    <fieldset class=""layui-elem-field layui-field-title"">" & vbCrlf
	Response.Write "        <legend>系统设置</legend>" & vbCrlf
	Response.Write "    </fieldset>" & vbCrlf
	Response.Write "    <div class=""layui-tab"" lay-filter=""system"">" & vbCrlf
	Response.Write "        <ul class=""layui-tab-title"">" & vbCrlf
	Response.Write "            <li lay-id=""basic"" class=""layui-this"">基础设置</li>" & vbCrlf
	Response.Write "            <li lay-id=""function"">功能设置</li>" & vbCrlf
	Response.Write "            <li lay-id=""upload"">上传设置</li>" & vbCrlf
	Response.Write "            <li lay-id=""aspjpeg"">水印设置</li>" & vbCrlf
	Response.Write "            <li lay-id=""email"">邮件设置</li>" & vbCrlf
	Response.Write "        </ul>" & vbCrlf
	Response.Write "        <div class=""layui-tab-content"">" & vbCrlf
	Response.Write "    <div class=""layui-tab-item layui-show"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站名称：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""SiteName"" type=""text"" id=""SiteName"" value=""" & SiteName & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站标题：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""SiteTitle"" type=""text"" id=""SiteTitle"" value=""" & SiteTitle & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站网址：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""SiteUrl"" type=""text"" id=""SiteUrl"" value=""" & SiteUrl & """ lay-verify=""url"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站Fso：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""Fso_Sys"" type=""text"" id=""Fso_Sys"" value=""" & Fso_Sys & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">请慎重选择网站Fso</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站META关键词：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""SiteKeywords"" cols=""60"" rows=""5"" id=""SiteKeywords"" lay-verify=""required"" class=""layui-textarea"">" & SiteKeywords & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站META网页描述：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""SiteDescription"" cols=""60"" rows=""5"" id=""SiteDescription"" lay-verify=""required"" class=""layui-textarea"">" & SiteDescription & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">LOGO地址</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""LogoUrl"" type=""text"" id=""LogoUrl"" value=""" & LogoUrl & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">请添写完整URL地址</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">LOGO宽度</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""LogoWidth"" type=""number"" min=""0"" id=""LogoWidth"" value=""" & LogoWidth & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">LOGO高度</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""LogoHeight"" type=""number"" min=""0"" id=""LogoHeight"" value=""" & LogoHeight & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站作者：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""SiteAuthor"" type=""text"" id=""SiteAuthor"" value=""" & SiteAuthor & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">站长姓名：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""WebmasterName"" type=""text"" id=""WebmasterName"" value=""" & WebmasterName & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">站长邮箱：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""WebmasterEmail"" type=""text"" id=""WebmasterEmail"" value=""" & WebmasterEmail & """ lay-verify=""email"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站版权：（支持HTML标记）</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""SiteCopyRight"" cols=""60"" rows=""5"" id=""SiteCopyRight"" class=""layui-textarea"" lay-verify=""required"">" & Server.HtmlEncode(SiteCopyRight) & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">管理目录：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""AdminFolder"" type=""text"" id=""AdminFolder"" value=""" & AdminFolder & """ size=""40"" maxlength=""20"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">登陆验证码</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	If Web_AdminCodes<>"" Then
		Response.Write "<input name=""Web_AdminCodes"" type=""password"" id=""Web_AdminCodes"" value="""&Decryptstr(Web_AdminCodes)&""" size=""20"" maxlength=""20"" class=""layui-input"" onmouseover=""layer.tips('"&Decryptstr(Web_AdminCodes)&"',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"">"
	Else
		Response.Write "<input name=""Web_AdminCodes"" type=""password"" id=""Web_AdminCodes"" value="""" size=""20"" maxlength=""20"" class=""layui-input"">"
	End If
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">Session时间</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-1"">" & vbCrlf
	Response.Write "            <input name=""SessionTimeout"" type=""text"" id=""SessionTimeout"" value=""" & SessionTimeout & """ lay-verify=""required"" size=""20"" maxlength=""20"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">（分钟）0为不限制，主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟。</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">备份目录：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""DataBackPath"" type=""text"" id=""DataBackPath"" value=""" & DataBackPath & """ lay-verify=""required"" size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-tab-item"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站开关：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input id=""IsOpen"" name=""IsOpen"" type=""radio"" value=""True"""
	if IsOpen=True Then Response.Write " checked"
	Response.Write " onClick=""WebCloser.style.display='none'"" title=""打开"" lay-filter='IsOpen'><input id=""IsOpen"" name=""IsOpen"" type=""radio"" value=""False"""
	if IsOpen=False Then Response.Write " checked"
	Response.Write " onClick=""WebCloser.style.display=''"" title=""关闭"" lay-filter='IsOpen'>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"" id=""WebCloser"""
	If IsOpen=True Then Response.Write " style='display:none;'"
	Response.Write ">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">维护说明：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""WebWords"" cols=""60"" rows=""5"" id=""WebWords"" class=""layui-textarea"">" & WebWords & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">开放时间：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	If Len(Web_TimOpen)<>24 Then Web_TimOpen="000000000000000000000000"
	For i=1 To 24
		Response.Write "            <input type=""checkbox"" id=""Web_TimOpen_"&i&""" name=""Web_TimOpen_"&i&""" value='0' title='"&(i-1)&"点'"
		If Int(Mid(Web_TimOpen,i,1))<>1 Then Response.Write " checked"
		Response.Write ">" & vbCrlf
		'If i Mod 8=0 Then Response.Write "            <br>" & vbCrlf
	Next
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">软键盘：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""radio"" id=""EnableSoftKey"" name=""EnableSoftKey"" value=""True"" title=""是"""
	if EnableSoftKey=True Then Response.Write " checked"
	Response.Write "><input type=""radio"" id=""EnableSoftKey"" name=""EnableSoftKey"" value=""False"" title=""否"""
	if EnableSoftKey=False Then Response.Write " checked"
	Response.Write ">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">QQ导航：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""radio"" id=""Jqqonline"" name=""Jqqonline"" value=""True"" title=""是"""
	if Jqqonline=True Then Response.Write " checked"
	Response.Write "><input type=""radio"" id=""Jqqonline"" name=""Jqqonline"" value=""False"" title=""否"""
	if Jqqonline=False Then Response.Write " checked"
	Response.Write ">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">页面防盗：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""radio"" id=""PageSecurity"" name=""PageSecurity"" value=""True"" title=""是"""
	if PageSecurity=True Then Response.Write " checked"
	Response.Write "><input type=""radio"" id=""PageSecurity"" name=""PageSecurity"" value=""False"" title=""否"""
	if PageSecurity=False Then Response.Write " checked"
	Response.Write ">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">页面特效：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""radio"" id=""PageEffects"" name=""PageEffects"" value=""True"" title=""是"""
	if PageEffects=True Then Response.Write " checked"
	Response.Write "><input type=""radio"" id=""PageEffects"" name=""PageEffects"" value=""False"" title=""否"""
	if PageEffects=False Then Response.Write " checked"
	Response.Write ">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">首页生成：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type='radio' id='Web_IsCreatIndexShow' name='Web_IsCreatIndexShow' value='1' title=""生成HTML"" lay-filter='Web_IsCreatIndexShow'"
	If Int(Web_IsCreatIndexShow)<>0 Then Response.Write " checked"
	Response.Write " onClick=""HtmlShow.style.display='none';HtmlShowFiles.style.display='';""><input type='radio' id='Web_IsCreatIndexShow' name='Web_IsCreatIndexShow' value='0' title=""不生成HTML"" lay-filter='Web_IsCreatIndexShow'"
	If Int(Web_IsCreatIndexShow)=0 Then Response.Write " checked"
	Response.Write " onClick=""HtmlShow.style.display='';HtmlShowFiles.style.display='none';"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站首页：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"" id='HtmlShow'"
	If Int(Web_IsCreatIndexShow)<>0 Then Response.Write " style='display:none;'"
	Response.Write ">" & vbCrlf
	Response.Write "            <input type='text' id='IndexShow' name='IndexShow' value='" & IndexShow & "' size='40' maxlength='20' class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"" id='HtmlShowFiles'"
	If Int(Web_IsCreatIndexShow)=0 Then Response.Write " style='display:none;'"
	Response.Write ">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexShowFile' name='Web_IndexShowFile' value='" & Web_IndexShowFile & "' size='40' maxlength='20' class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">导页生成：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type='radio' id='Web_IsCreatIndex' name='Web_IsCreatIndex' value='1' title=""生成HTML"" lay-filter='Web_IsCreatIndex'"
	If Int(Web_IsCreatIndex)<>0 Then Response.Write " checked"
	Response.Write " onClick=""Html.style.display='none';HtmlFiles.style.display='';""><input type='radio' id='Web_IsCreatIndex' name='Web_IsCreatIndex' value='0' title=""不生成HTML"" lay-filter='Web_IsCreatIndex'"
	If Int(Web_IsCreatIndex)=0 Then Response.Write " checked"
	Response.Write " onClick=""Html.style.display='';HtmlFiles.style.display='none';"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">网站导页：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"" id='Html'"
	If Int(Web_IsCreatIndex)<>0 Then Response.Write " style='display:none;'"
	Response.Write ">" & vbCrlf
	Response.Write "            <input type='text' id='IndexFile' name='IndexFile' value='" & IndexFile & "' size='40' maxlength='20' class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"" id='HtmlFiles'"
	If Int(Web_IsCreatIndex)=0 Then Response.Write " style='display:none;'"
	Response.Write ">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexFile' name='Web_IndexFile' value='" & Web_IndexFile & "' size='40' maxlength='20' class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">首页风格：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexShowSkinID' name='Web_IndexShowSkinID' value='" & Web_IndexShowSkinID & "' class='layui-input' size='40' maxlength='255' readonly=""readonly"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <button type=""button"" class=""layui-btn"" hidefocus=""true"" onclick=""SelectCss('Web_IndexShowSkinID');"">选择风格</button><button type=""button"" class=""layui-btn layui-btn-danger"" hidefocus=""true"" onclick=""ClearColor('Web_IndexShowSkinID');"">清空</button>&nbsp;&nbsp;可以为空&nbsp;首页相关模板中包含CSS、颜色、图片等信息" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">首页模板：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexShowMoban' name='Web_IndexShowMoban' value='" & Web_IndexShowMoban & "' class='layui-input' size='40' maxlength='255' readonly=""readonly"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <button type=""button"" class=""layui-btn"" hidefocus=""true"" onclick=""SelectMoban('0','Web_IndexShowMoban');"">选择模板</button><button type=""button"" class=""layui-btn layui-btn-danger"" class=""layui-btn"" hidefocus=""true"" onclick=""ClearColor('Web_IndexShowMoban');"">清空</button>&nbsp;&nbsp;可以为空&nbsp;首页相关模板" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">导页风格：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexSkinID' name='Web_IndexSkinID' value='" & Web_IndexSkinID & "' class='layui-input' size='40' maxlength='255' readonly=""readonly"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <button type=""button"" class=""layui-btn"" hidefocus=""true"" onclick=""SelectCss('Web_IndexSkinID');"">选择风格</button><button type=""button"" class=""layui-btn layui-btn-danger"" hidefocus=""true"" onclick=""ClearColor('Web_IndexSkinID');"">清空</button></a>&nbsp;&nbsp;可以为空&nbsp;导页相关模板中包含CSS、颜色、图片等信息" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">导页模板：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "            <input type='text' id='Web_IndexMoban' name='Web_IndexMoban' value='" & Web_IndexMoban & "' class='layui-input' size='40' maxlength='255' readonly=""readonly"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <button type=""button"" class=""layui-btn"" hidefocus=""true"" onclick=""SelectMoban('0','Web_IndexMoban');"">选择模板</button><button type=""button"" class=""layui-btn layui-btn-danger"" hidefocus=""true"" onclick=""ClearColor('Web_IndexMoban');"">清空</button>&nbsp;&nbsp;可以为空&nbsp;导页相关模板" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">不健康字符：（过滤不健康字符设定规则，要过滤的字符=过滤后的字符，用回车分隔多个过滤字符。）</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""Web_BadWords"" cols=""60"" rows=""5"" id=""Web_BadWords"" class=""layui-textarea"">" & Server.HtmlEncode(Replace(Web_BadWords,"|",VbCrlf)) & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item layui-form-text"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">I P 屏蔽：IP封锁，用回车分隔多个IP</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <textarea name=""Web_LockIP"" cols=""60"" rows=""5"" id=""Web_LockIP"" class=""layui-textarea"">" & Server.HtmlEncode(Replace(Web_LockIP,"|",VbCrlf)) & "</textarea>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-tab-item"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">上传组件：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & SelectInit("UploadSetting_0",Split("关闭|无组件上传类|Aspupload3.0组件" & IsObjSupported("persits.upload") & "|SA-FileUp 4.0组件" & IsObjSupported("SoftArtisans.FileUp") & "|LyfUpload组件" & IsObjSupported("lyfupload.uploadfile") & "","|"),Split("999|0|1|2|3","|"),UploadSetting(0)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">上传目录：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_1"" type=""text"" id=""UploadSetting_1"" value=""" & UploadSetting(1) & """ lay-verify=""UploadSetting_1"" size=""20"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">自动目录：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_2"" type=""text"" id=""UploadSetting_2"" value=""" & UploadSetting(2) & """ lay-verify=""UploadSetting_2"" size=""30"" maxlength=""255"" class=""txt"">&nbsp;<div id=""d_autodir_drop_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:120px;""><input type=""text"" ztype=""select"" id=""d_autodir_drop"" name=""d_autodir_drop"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:120px;position:absolute;z-index:-1;"" onchange='this.form.UploadSetting_2.value=this.value' value=""" & UploadSetting(2) & """ startvalue=""" & UploadSetting(2) & """/><input type=""text"" id=""d_autodir_drop_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:120px;"" /><a id=""d_autodir_drop_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""d_autodir_drop_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""d_autodir_drop_ul"" style=""left:-1px; width:-1px;""><script>Combox_d_autodir_drop_Init=function(){var _el=Zving.getDom('d_autodir_drop');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['','不启用']);"
	Response.Write "_data.push(['{yyyy}/','{yyyy}/']);"
	Response.Write "_data.push(['{yyyy}/{mm}/','{yyyy}/{mm}/']);"
	Response.Write "_data.push(['{yyyy}/{mm}/{dd}/','{yyyy}/{mm}/{dd}/']);"
	Response.Write "_data.push(['{yyyy}/{mm}{dd}/','{yyyy}/{mm}{dd}/']);"
	Response.Write "_data.push(['{yyyy}{mm}/','{yyyy}{mm}/']);"
	Response.Write "_data.push(['{yyyy}{mm}/{dd}/','{yyyy}{mm}/{dd}/']);"
	Response.Write "_data.push(['{yyyy}{mm}{dd}/','{yyyy}{mm}{dd}/']);"
	Response.Write "var combox_d_autodir_drop = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_d_autodir_drop_Init();}else{Zving.Page.onReady(Combox_d_autodir_drop_Init);}</script></div></div></div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">大小限制：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_21"" type=""text"" id=""UploadSetting_21"" value=""" & UploadSetting(21) & """ size=""30"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">单位KB</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">图片类型：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_3"" type=""text"" id=""UploadSetting_3"" value=""" & UploadSetting(3) & """ size=""30"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">格式：gif|jpg|png</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">视频类型：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_22"" type=""text"" id=""UploadSetting_22"" value=""" & UploadSetting(22) & """ size=""30"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">格式：swf|flv</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">附件类型：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_23"" type=""text"" id=""UploadSetting_23"" value=""" & UploadSetting(23) & """ size=""30"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">格式：rar|zip</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">内容过滤：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_4"" type=""text"" id=""UploadSetting_4"" value=""" & UploadSetting(4) & """ size=""50"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-tab-item"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">图片组件：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & SelectInit("UploadSetting_5",Split("关闭|CreatePreviewImage组件" & IsObjSupported("CreatePreviewImage.cGvbox") & "|AspJpeg组件" & IsObjSupported("Persits.Jpeg") & "|SA-ImgWriter组件" & IsObjSupported("SoftArtisans.ImageGen") & "","|"),Split("999|0|1|2","|"),UploadSetting(5)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "<fieldset class=""layui-elem-field"">" & vbCrlf
	Response.Write "<legend>预览图片大小设置：</legend>" & vbCrlf
	Response.Write "<div class=""layui-field-box"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">图片宽度：</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""UploadSetting_6"" type='number' min=""0"" id=""UploadSetting_6"" value=""" & UploadSetting(6) & """ size=""10"" maxlength=""3"" class=""layui-input"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "            <div class=""layui-form-mid layui-word-aux"">象素</div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">图片高度：</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""UploadSetting_7"" type='number' min=""0"" id=""UploadSetting_7"" value=""" & UploadSetting(7) & """ size=""10"" maxlength=""3"" class=""layui-input"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "            <div class=""layui-form-mid layui-word-aux"">象素</div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "</div>" & vbCrlf
	Response.Write "</fieldset>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">大小规则：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & InputLayui("UploadSetting_8",Split("固定|等比例缩小","|"),Split("0|1","|"),UploadSetting(8)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">水印设置：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & InputLayui("UploadSetting_9",Split("关闭水印效果|水印文字效果|水印图片效果","|"),Split("0|1|2","|"),UploadSetting(9)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">位置坐标：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & SelectInit("UploadSetting_20",Split("左上|左下|居中|右上|右下","|"),Split("0|1|2|3|4","|"),UploadSetting(20)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "<fieldset class=""layui-elem-field"">" & vbCrlf
	Response.Write "<legend>水印文字设置：</legend>" & vbCrlf
	Response.Write "<div class=""layui-field-box"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">水印文字：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_10"" type=""text"" id=""UploadSetting_10"" value=""" & UploadSetting(10) & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">字体大小：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-1"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_11"" type=""text"" id=""UploadSetting_11"" value=""" & UploadSetting(11) & """ size=""10"" maxlength=""2"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-form-mid layui-word-aux"">px</div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">字体颜色：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & ShowColor("UploadSetting_12",UploadSetting(12)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">字体类型：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Tmpstr="宋体|楷体|新宋体|黑体|隶书|Andale Mono|Arial|Arial Black|Book Antiqua|Century Gothic|Comic Sans MS|Courier New|Georgia|Impact|Tahoma|Times New Roman|Trebuchet MS|Script MT Bold|Stencil|Verdana|Lucida Console"
	Response.Write "            " & SelectInit("UploadSetting_13",Split(Tmpstr,"|"),Split(Tmpstr,"|"),UploadSetting(13)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">是否粗体：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & SelectInit("UploadSetting_14",Split("否|是","|"),Split("0|1","|"),UploadSetting(14)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "</div>" & vbCrlf
	Response.Write "</fieldset>" & vbCrlf
	Response.Write "<fieldset class=""layui-elem-field"">" & vbCrlf
	Response.Write "<legend>水印图片设置：</legend>" & vbCrlf
	Response.Write "<div class=""layui-field-box"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">水印LOGO</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""UploadSetting_15"" type=""text"" id=""UploadSetting_15"" value=""" & UploadSetting(15) & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">水印透明度</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""hidden"" name=""UploadSetting_16"" id=""UploadSetting_16"" value=""""><div id=""slider1"" style=""max-width: 300px;""></div><span id=""slider1-span""></span><br>设置水印图标透明度，数值越大，图标越清晰" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">水印质量</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input type=""hidden"" name=""UploadSetting_24"" id=""UploadSetting_24"" value=""""><div id=""slider2"" style=""max-width: 300px;""></div><span id=""slider2-span""></span><br>0-100 为100时质量最好" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">去除底色：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & ShowColor("UploadSetting_17",UploadSetting(17)) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "<fieldset class=""layui-elem-field"">" & vbCrlf
	Response.Write "<legend>水印长宽区域定义：</legend>" & vbCrlf
	Response.Write "<div class=""layui-field-box"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">图片宽度：</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""UploadSetting_18"" type='number' min=""0"" id=""UploadSetting_18"" value=""" & UploadSetting(18) & """ size=""10"" maxlength=""3"" class=""layui-input"" lay-verify=""UploadSetting_18"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "            <div class=""layui-form-mid layui-word-aux"">象素</div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "        <div class=""layui-inline"">" & vbCrlf
	Response.Write "            <label class=""layui-form-label"">图片高度：</label>" & vbCrlf
	Response.Write "            <div class=""layui-input-inline"">" & vbCrlf
	Response.Write "                <input name=""UploadSetting_19"" type='number' min=""0"" id=""UploadSetting_19"" value=""" & UploadSetting(19) & """ size=""10"" maxlength=""3"" class=""layui-input"" lay-verify=""UploadSetting_19"">" & vbCrlf
	Response.Write "            </div>" & vbCrlf
	Response.Write "            <div class=""layui-form-mid layui-word-aux"">象素</div>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "</div>" & vbCrlf
	Response.Write "</fieldset>" & vbCrlf
	Response.Write "</div>" & vbCrlf
	Response.Write "</fieldset>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-tab-item"">" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">邮件组件：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            " & SelectInit("MailObject",Split("关闭|Jmail组件" & IsObjSupported("JMail.SMTPMail") & "|CDONTS组件" & IsObjSupported("CDONTS.NewMail") & "|ASPEMAIL组件" & IsObjSupported("Persits.MailSender") & "|WebEasyMail组件" & IsObjSupported("easymail.MailSend") & "","|"),Split("0|1|2|3|4","|"),MailObject) & "" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">SMTP地址</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""MailServer"" type=""text"" id=""MailServer"" value=""" & MailServer & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">用户名：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""MailServerUserName"" type=""text"" id=""MailServerUserName"" value=""" & MailServerUserName & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">密码：</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""MailServerPassWord"" type=""password"" id=""MailServerPassWord"" value=""" & MailServerPassWord & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <label class=""layui-form-label"">SMTP域名</label>" & vbCrlf
	Response.Write "        <div class=""layui-input-4"">" & vbCrlf
	Response.Write "            <input name=""MailDomain"" type=""text"" id=""MailDomain"" value=""" & MailDomain & """ size=""40"" maxlength=""255"" class=""layui-input"">" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    <div class=""layui-form-item"">" & vbCrlf
	Response.Write "        <div class=""layui-input-block"">" & vbCrlf
	Response.Write "            <input name=""Action"" type=""hidden"" id=""Action"" value=""SaveConfig"">" & vbCrlf
	Response.Write "            <button type=""button"" class=""layui-btn"" accesskey=""s"" lay-submit="""" lay-filter=""submit"">保存设置[S]</button>" & vbCrlf
	Response.Write "            <button type=""reset"" class=""layui-btn layui-btn-danger"" accesskey=""r"">重置[R]</button>" & vbCrlf
	Response.Write "        </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "    </div>" & vbCrlf
	Response.Write "</form>" & vbCrlf
	Response.Write "<link href='../Images/nouislider/nouislider.min.css' rel='stylesheet' type='text/css' />" & vbCrlf
	Response.Write "<link href='../Images/nouislider/nouislider.pips.css' rel='stylesheet' type='text/css' />" & vbCrlf
	Response.Write "<script src='../Images/nouislider/wNumb.min.js' type='text/javascript'></script>" & vbCrlf
	Response.Write "<script src='../Images/nouislider/nouislider.min.js' type='text/javascript'></script>" & vbCrlf
	If UploadSetting(16)="" Then
		UploadSetting_16 = 0
	Else
		UploadSetting_16 = UploadSetting(16)*100
	End If
	If UploadSetting(24)="" Then
		UploadSetting_24 = 0
	Else
		UploadSetting_24 = UploadSetting(24)
	End If
	Response.Write "<script type=""text/javascript"">" & vbCrlf
	Response.Write "$(function(){" & vbCrlf
	Response.Write "    var lockedState = false," & vbCrlf
	Response.Write "    lockedSlider = false," & vbCrlf
	Response.Write "    lockedValues = [60, 80]," & vbCrlf
	Response.Write "    slider1 = document.getElementById('slider1')" & vbCrlf
	Response.Write "    slider1Value = document.getElementById('slider1-span');" & vbCrlf
	Response.Write "    slider2 = document.getElementById('slider2')" & vbCrlf
	Response.Write "    slider2Value = document.getElementById('slider2-span');" & vbCrlf
	Response.Write "    noUiSlider.create(slider1, {" & vbCrlf
	Response.Write "        start: " & UploadSetting_16 & "," & vbCrlf
	Response.Write "        animate: false," & vbCrlf
	Response.Write "        range: {" & vbCrlf
	Response.Write "            min: 1," & vbCrlf
	Response.Write "            '10%': 10," & vbCrlf
	Response.Write "            '20%': 20," & vbCrlf
	Response.Write "            '30%': 30," & vbCrlf
	Response.Write "            '40%': 40," & vbCrlf
	Response.Write "            '50%': 50," & vbCrlf
	Response.Write "            '60%': 60," & vbCrlf
	Response.Write "            '70%': 70," & vbCrlf
	Response.Write "            '80%': 80," & vbCrlf
	Response.Write "            '90%': 90," & vbCrlf
	Response.Write "            max: 100" & vbCrlf
	Response.Write "        }," & vbCrlf
	Response.Write "        snap: true" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    noUiSlider.create(slider2, {" & vbCrlf
	Response.Write "        start: " & UploadSetting_24 & "," & vbCrlf
	Response.Write "        animate: false," & vbCrlf
	Response.Write "        range: {" & vbCrlf
	Response.Write "            min: 1," & vbCrlf
	Response.Write "            max: 100" & vbCrlf
	Response.Write "        }" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    slider1.noUiSlider.on('update', function( values, handle ){" & vbCrlf
	Response.Write "        slider1Value.innerHTML = parseInt(values[handle]);" & vbCrlf
	Response.Write "        $('#UploadSetting_16').val(parseInt(values[handle])/100);" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    slider2.noUiSlider.on('update', function( values, handle ){" & vbCrlf
	Response.Write "        slider2Value.innerHTML = parseInt(values[handle]);" & vbCrlf
	Response.Write "        $('#UploadSetting_24').val(parseInt(values[handle]));" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    function setLockedValues () {" & vbCrlf
	Response.Write "        lockedValues = [" & vbCrlf
	Response.Write "            Number(slider1.noUiSlider.get())," & vbCrlf
	Response.Write "            Number(slider2.noUiSlider.get())" & vbCrlf
	Response.Write "        ];" & vbCrlf
	Response.Write "    }" & vbCrlf
	Response.Write "    slider1.noUiSlider.on('change', setLockedValues);" & vbCrlf
	Response.Write "    slider2.noUiSlider.on('change', setLockedValues);" & vbCrlf
	Response.Write "});" & vbCrlf
	Response.Write "</script>" & vbCrlf
	Response.Write "<script>" & vbCrlf
	Response.Write "layui.use(['form','element'], function () {" & vbCrlf
	Response.Write "    var form = layui.form,element = layui.element;" & vbCrlf
	Response.Write "    //自定义表单验证" & vbCrlf
	Response.Write "    form.verify({" & vbCrlf
	Response.Write "        UploadSetting_1: function (value, item) {" & vbCrlf
	Response.Write "            if (!BaseTrim(value) || /[\' 　\&\<\>\?\%\,\;\(\)\`\~\!\@\#\$\^\*\{\}\[\]\|\""\t\n]+/gi.test(BaseTrim(value))){" & vbCrlf
	Response.Write "                //切换到指定Tab项" & vbCrlf
	Response.Write "                element.tabChange('system', 'upload');" & vbCrlf
	Response.Write "                item.select();" & vbCrlf
	Response.Write "                return ""上传路径：不能为空，且不能包含特殊字符！"";" & vbCrlf
 	Response.Write "            }" & vbCrlf
	Response.Write "        }," & vbCrlf
	Response.Write "        UploadSetting_2: function (value, item) {" & vbCrlf
	Response.Write "            if (/[\' 　\&\<\>\?\%\,\;\(\)\`\~\!\@\#\$\^\*\[\]\|\""\t\n\.]+/gi.test(BaseTrim(value))){" & vbCrlf
	Response.Write "                //切换到指定Tab项" & vbCrlf
	Response.Write "                element.tabChange('system', 'upload');" & vbCrlf
	Response.Write "                item.select();" & vbCrlf
	Response.Write "                return ""年月日自动目录：不能含用特殊字符！"";" & vbCrlf
 	Response.Write "            }" & vbCrlf
	Response.Write "            value = value.replace(/\\/g, ""/"");" & vbCrlf
	Response.Write "            if (value.substr(value.length-1)!=""/""){" & vbCrlf
	Response.Write "                value += ""/"";" & vbCrlf
	Response.Write "            }" & vbCrlf
	Response.Write "            if (value.substr(0,1)==""/""){" & vbCrlf
	Response.Write "                //切换到指定Tab项" & vbCrlf
	Response.Write "                element.tabChange('system', 'upload');" & vbCrlf
	Response.Write "                item.select();" & vbCrlf
	Response.Write "                return ""年月日自动目录：不能以“/”开头！"";" & vbCrlf
	Response.Write "            }" & vbCrlf
	Response.Write "        }," & vbCrlf
	Response.Write "        UploadSetting_18: function (value, item) {" & vbCrlf
	Response.Write "            if (!value || isNaN(value)){" & vbCrlf
	Response.Write "                //切换到指定Tab项" & vbCrlf
	Response.Write "                element.tabChange('system', 'aspjpeg');" & vbCrlf
	Response.Write "                item.select();" & vbCrlf
	Response.Write "                return ""图片宽度：不能为空，且只能填写数字！"";" & vbCrlf
 	Response.Write "            }" & vbCrlf
	Response.Write "        }," & vbCrlf
	Response.Write "        UploadSetting_19: function (value, item) {" & vbCrlf
	Response.Write "            if (!value || isNaN(value)){" & vbCrlf
	Response.Write "                //切换到指定Tab项" & vbCrlf
	Response.Write "                element.tabChange('system', 'aspjpeg');" & vbCrlf
	Response.Write "                item.select();" & vbCrlf
	Response.Write "                return ""图片高度：不能为空，且只能填写数字！"";" & vbCrlf
 	Response.Write "            }" & vbCrlf
	Response.Write "        }," & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    //监听IsOpen" & vbCrlf
	Response.Write "    form.on('radio(IsOpen)', function(data){" & vbCrlf
	Response.Write "        if(data.value=='False'){" & vbCrlf
	Response.Write "            WebCloser.style.display='';" & vbCrlf
	Response.Write "        }else{" & vbCrlf
	Response.Write "            WebCloser.style.display='none';" & vbCrlf
	Response.Write "        }" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    //监听Web_IsCreatIndexShow" & vbCrlf
	Response.Write "    form.on('radio(Web_IsCreatIndexShow)', function(data){" & vbCrlf
	Response.Write "        if(data.value==1){" & vbCrlf
	Response.Write "            HtmlShow.style.display='none';HtmlShowFiles.style.display='';" & vbCrlf
	Response.Write "        }else{" & vbCrlf
	Response.Write "            HtmlShow.style.display='';HtmlShowFiles.style.display='none';" & vbCrlf
	Response.Write "        }" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    //监听Web_IsCreatIndex" & vbCrlf
	Response.Write "    form.on('radio(Web_IsCreatIndex)', function(data){" & vbCrlf
	Response.Write "        if(data.value==1){" & vbCrlf
	Response.Write "            Html.style.display='none';HtmlFiles.style.display='';" & vbCrlf
	Response.Write "        }else{" & vbCrlf
	Response.Write "            Html.style.display='';HtmlFiles.style.display='none';" & vbCrlf
	Response.Write "        }" & vbCrlf
	Response.Write "    });" & vbCrlf
	Response.Write "    //提交监听" & vbCrlf
	Response.Write "    form.on('submit(submit)', function (data) {" & vbCrlf
	Response.Write "        loading = layer.load(1, {shade: [0.1,'#fff']});" & vbCrlf
	Response.Write "        $.ajax({" & vbCrLf
	Response.Write "            type: 'post'," & vbCrLf
	Response.Write "            url: '?Action=SaveConfig'," & vbCrLf
	Response.Write "            data: data.field," & vbCrLf
	Response.Write "            dataType: 'json'," & vbCrLf
	Response.Write "            success: function(res) {" & vbCrLf
	Response.Write "                layer.close(loading);" & vbCrlf
	Response.Write "                if(res.code > 0){" & vbCrlf
	Response.Write "                    if(res.newfolder == 1){" & vbCrlf
	Response.Write "                        layer.msg(res.msg,{icon: 1, time: 1000},function(){" & vbCrlf
	Response.Write "                            parent.location.href = res.newurl;" & vbCrlf
	Response.Write "                        });" & vbCrlf
	Response.Write "                    }else{" & vbCrlf
	Response.Write "                        layer.msg(res.msg,{icon: 1, time: 1000},function(){" & vbCrlf
	Response.Write "                            location.href = res.url;" & vbCrlf
	Response.Write "                        });" & vbCrlf
	Response.Write "                    }" & vbCrlf
	Response.Write "                }else{" & vbCrlf
	Response.Write "                    layer.msg(res.msg,{icon: 2, time: 1000});" & vbCrlf
	Response.Write "                }" & vbCrlf
	Response.Write "            }" & vbCrLf
	Response.Write "        });" & vbCrLf
	Response.Write "    });" & vbCrlf
	Response.Write "});" & vbCrlf
	Response.Write "</script>" & vbCrlf
	Response.Write "</body>" & vbCrLf & "</html>"
End Sub

Sub SaveConfig()
	If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
		Dim NewAdminFolder, i, j, iClockTim, newfolder
		SiteName=Trim(Request.Form("SiteName"))
		SiteTitle=Trim(Request.Form("SiteTitle"))
		SiteUrl=Trim(Request.Form("SiteUrl"))
		Fso_Sys=Trim(Request.Form("Fso_Sys"))
		SiteKeywords=Trim(Request.Form("SiteKeywords"))
		SiteDescription=Trim(Request.Form("SiteDescription"))
		LogoUrl=Trim(Request.Form("LogoUrl"))
		LogoWidth=Trim(Request.Form("LogoWidth"))
		LogoHeight=Trim(Request.Form("LogoHeight"))
		SiteAuthor=Trim(Request.Form("SiteAuthor"))
		WebmasterName=Trim(Request.Form("WebmasterName"))
		WebmasterEmail=Trim(Request.Form("WebmasterEmail"))
		Web_IsCreatIndexShow=Trim(Request.Form("Web_IsCreatIndexShow"))
		IndexShow=Trim(Request.Form("IndexShow"))
		Web_IndexShowFile=Trim(Request.Form("Web_IndexShowFile"))
		Web_IsCreatIndex=Trim(Request.Form("Web_IsCreatIndex"))
		IndexFile=Trim(Request.Form("IndexFile"))
		Web_IndexFile=Trim(Request.Form("Web_IndexFile"))
		NewAdminFolder=Trim(Request.Form("AdminFolder"))
		Web_IndexShowSkinID=Trim(Request.Form("Web_IndexShowSkinID"))
		Web_IndexShowMoban=Trim(Request.Form("Web_IndexShowMoban"))
		Web_IndexSkinID=Trim(Request.Form("Web_IndexSkinID"))
		Web_IndexMoban=Trim(Request.Form("Web_IndexMoban"))
		SiteCopyRight=Trim(Request.Form("SiteCopyRight"))
		IsOpen=Trim(Request.Form("IsOpen"))
		WebWords=Trim(Request.Form("WebWords"))
		Web_BadWords = Replace(Trim(Request.Form("Web_BadWords")),VbCrlf,"|")
		Web_LockIP=Replace(Trim(Request.Form("Web_LockIP")),VbCrlf,"|")
		Web_AdminCodes=Trim(Request.Form("Web_AdminCodes"))
		SessionTimeout=Code_CLng(Trim(Request.Form("SessionTimeout")))
		PageEffects=Trim(Request.Form("PageEffects"))
		PageSecurity=Trim(Request.Form("PageSecurity"))
		EnableSoftKey=Trim(Request.Form("EnableSoftKey"))
		Jqqonline=Trim(Request.Form("Jqqonline"))
		DataBackPath=Trim(Request.Form("DataBackPath"))
		MailObject=Trim(Request.Form("MailObject"))
		MailServer=Trim(Request.Form("MailServer"))
		MailServerUserName=Trim(Request.Form("MailServerUserName"))
		MailServerPassWord=Trim(Request.Form("MailServerPassWord"))
		MailDomain=Trim(Request.Form("MailDomain"))
		For i = 0 To 24
			iUploadSetting = iUploadSetting & Code_Config(Code_Admin("UploadSetting_"&i,1,0))&","
		Next
		If Right(iUploadSetting,1)="," Then iUploadSetting=Left(iUploadSetting,Len(iUploadSetting)-1)
		
		For j = 1 To 24
			iClockTim = iClockTim & Code_Config(Code_Int("Web_TimOpen_"&j,1))
		Next
		
		If SiteName="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u540d\u79f0\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		if SiteTitle="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u6807\u9898\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SiteUrl="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u7f51\u5740\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If Fso_Sys="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9Fso\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SiteKeywords="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u5173\u952e\u5b57\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SiteDescription="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u63cf\u8ff0\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SiteAuthor="" Then
			Response.Write "{""code"":0,""msg"":""\u7f51\u7ad9\u4f5c\u8005\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If WebmasterName="" Then
			Response.Write "{""code"":0,""msg"":""\u7ad9\u957f\u59d3\u540d\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If WebmasterEmail="" Then
			Response.Write "{""code"":0,""msg"":""\u7ad9\u957f\u4fe1\u7bb1\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SiteCopyRight="" Then
			Response.Write "{""code"":0,""msg"":""\u7248\u6743\u4fe1\u606f\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If SessionTimeout="" Then
			Response.Write "{""code"":0,""msg"":""Session\u4f1a\u8bdd\u7684\u4fdd\u6301\u65f6\u95f4\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If DataBackPath="" Then
			Response.Write "{""code"":0,""msg"":""\u6570\u636e\u5e93\u5907\u4efd\u76ee\u5f55\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If WebWords="" Then
			Response.Write "{""code"":0,""msg"":""\u7ef4\u62a4\u8bf4\u660e\u4e0d\u80fd\u4e3a\u7a7a\uff01""}" & vbCrLf
			Response.End()
		End If
		If FoundErr=True Then
			Exit Sub
		End If
		newfolder = 0
		If AdminFolder<>NewAdminFolder Then
			Dim Cfs
			Set Cfs=New Cls_FileSystem
			Cfs.Move_Folder InstallDir & AdminFolder,InstallDir & NewAdminFolder
			Set Cfs=Nothing
			newfolder = 1
		End If
		
		sql="select * From ["&Data_Name&"] where id=1"
		Call Exe_Conn(rs,sql,3)
		rs("SiteName")=SiteName
		rs("SiteTitle")=SiteTitle
		rs("SiteUrl")=SiteUrl
		rs("Fso_Sys")=Fso_Sys
		rs("SiteKeywords")=SiteKeywords
		rs("SiteDescription")=SiteDescription
		rs("LogoUrl")=LogoUrl
		rs("LogoWidth")=LogoWidth
		rs("LogoHeight")=LogoHeight
		rs("SiteAuthor")=SiteAuthor
		rs("WebmasterName")=WebmasterName
		rs("WebmasterEmail")=WebmasterEmail
		rs("Web_IsCreatIndexShow")=Web_IsCreatIndexShow
		rs("IndexShow")=IndexShow
		rs("Web_IndexShowFile")=Web_IndexShowFile
		rs("Web_IsCreatIndex")=Web_IsCreatIndex
		rs("IndexFile")=IndexFile
		rs("Web_IndexFile")=Web_IndexFile
		rs("AdminFolder")=NewAdminFolder
		rs("Web_IndexShowSkinID")=Web_IndexShowSkinID
		rs("Web_IndexShowMoban")=Web_IndexShowMoban
		rs("Web_IndexSkinID")=Web_IndexSkinID
		rs("Web_IndexMoban")=Web_IndexMoban
		rs("SiteCopyRight")=SiteCopyRight
		rs("IsOpen")=IsOpen
		rs("Web_TimOpen")=iClockTim
		rs("WebWords")=WebWords
		rs("Web_BadWords")=Web_BadWords
		rs("Web_LockIP")=Web_LockIP
		rs("Web_AdminCodes")=Encryptstr(Web_AdminCodes)
		rs("SessionTimeout")=SessionTimeout
		rs("PageEffects")=PageEffects
		rs("PageSecurity")=PageSecurity
		rs("EnableSoftKey")=EnableSoftKey
		rs("Jqqonline")=Jqqonline
		rs("DataBackPath")=DataBackPath
		rs("UploadSetting")=iUploadSetting
		rs("MailObject")=MailObject
		rs("MailServer")=MailServer
		rs("MailServerUserName")=MailServerUserName
		rs("MailServerPassWord")=MailServerPassWord
		rs("MailDomain")=MailDomain
		rs.update
		rs.close
		Response.Write "{""code"":1,""newfolder"":"&newfolder&",""newurl"":"""&InstallDir&NewAdminFolder&"/Admin_Index.asp"",""msg"":""\u7f51\u7ad9\u914d\u7f6e\u4fdd\u5b58\u6210\u529f\uff01"",""url"":""?""}" & vbCrLf
		Response.End()
	End If
End Sub
%>